home *** CD-ROM | disk | FTP | other *** search
/ Web Designer 98 (Professional) / WebDesigner 1.0.iso / cgi2 / dano_tar.z / dano_tar / dano / dan_o.pl next >
Encoding:
Perl Script  |  1996-07-10  |  2.7 KB  |  117 lines
  1. #!/usr/local/bin/perl
  2. #
  3. # "Book 'em, Dan-O" Logger Script by Spider
  4. # Created 9 July 1996
  5. # Email me at  spider@servtech.com
  6. # http://www.servtech.com/public/spider
  7. #
  8. # Secret Decoder Ring - aka Organization of Log File
  9. # Time Stamp / Person\Machine / Referring URL / Browser Used
  10. # 
  11. # This script can be run as a SSI or used 
  12. # in a "redirect" fashion via *normal* CGI calls.
  13.  
  14. ########## Set Variables ############
  15.  
  16. $SSI = 0;  
  17. # 0 if not used as a SSI  -    1 if used as a SSI
  18.  
  19. $logfile = "/absolute/path/to/dan_o.dat";  
  20. # change the directory path, silly!
  21.  
  22. $exclude = 0; 
  23. # 1 if you want to exclude YOUR IP/Domain/Machine Name  - 0 otherwise
  24.  
  25. $my_addr = "your.machine.name";  
  26. # used with the "exclude" portion
  27.  
  28. $HomeDirURL = "http://yourdomain.com/your/path/";  
  29. # change this if you're not using SSI's
  30.  
  31. $nextfile = "file.html";  
  32. # again, change if you're not using SSI's 
  33.  
  34. ########## So much for that.. On with the show! #######
  35.  
  36. # Get the input
  37. read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
  38.  
  39. # Split the name-value pairs
  40. @pairs = split(/&/, $buffer);
  41.  
  42. foreach $pair (@pairs) {
  43.     ($name, $value) = split(/=/, $pair);
  44.  
  45.     # Un-Webify plus signs and %-encoding
  46.     $value =~ tr/+/ /;
  47.     $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  48.  
  49.     # Stop people from using subshells to execute commands
  50.     # Not a big deal when using sendmail, but very important
  51.     # when using UCB mail (aka mailx).
  52.     $value =~ s/~!/ ~!/g; 
  53.  
  54.     # Uncomment for debugging purpose
  55.     # print "Setting $name to $value<P>";
  56.     $FORM{$name} = $value;
  57. }
  58.  
  59. ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
  60.  
  61. if ($sec < 10) {
  62.     $sec = "0$sec";
  63. }
  64. if ($min < 10) {
  65.     $min = "0$min";
  66. }
  67. if ($hour < 10) {
  68.     $hour = "0$hour";
  69. }
  70. if ($mon < 10) {
  71.     $mon = "0$mon";
  72. }
  73. if ($mday < 10) {
  74.     $mday = "0$mday";
  75. }
  76.  
  77. $month = ($mon + 1);
  78. @months = ("January","February","March","April","May","June","July","August","September","October","November","December");
  79. $date = "$hour\:$min\:$sec $month/$mday/$year";
  80.  
  81. # Now that we know what the time/date is.. let's have fun
  82.  
  83. if ($SSI == 1) {
  84.     if ($exclude == 1) {
  85.         &log unless ($ENV{'REMOTE_HOST'} eq $my_addr);
  86.     } else {
  87.     &log;
  88.     }
  89.     exit;
  90. }
  91.  
  92. if ($SSI == 0) {
  93.     if ($exclude == 1) {
  94.         &log unless ($ENV{'REMOTE_HOST'} eq $my_addr);
  95.     } else {
  96.     &log;
  97.     }
  98.     &redir;
  99.     exit;
  100. }
  101.  
  102. sub log {
  103.  
  104.     if (! open(LOG,">>$logfile")) {
  105.         print "Content-type: text/html\n\n";
  106.         print "Couldn't open $logfile so I'm bugging out..\n";
  107.         exit;
  108.     }
  109.     print LOG "At $date, $ENV{'REMOTE_HOST'} came here from $ENV{'HTTP_REFERER'} using $ENV{'HTTP_USER_AGENT'}.\n";
  110.     close (LOG);
  111. }
  112.  
  113. sub redir {
  114.     print "Location: $HomeDirURL$nextfile\n\n";
  115. }
  116.  
  117.